#绘图的说明与范例演示
demo(image)
example(contour)

demo(graphics)

demo(persp)
demo(plotmath)
demo(Hershey)

library(lattice)
demo(lattice)
library(rgl)
demo(rgl)
example(persp3d)

# 大脑解剖学影像
install.packages("misc3d")
install.packages("AnalyzeFMRI")
install.packages("rgl")
library(AnalyzeFMRI)
library(rgl)
library(misc3d)
require(misc3d)
a <- f.read.analyze.volume(system.file("example.img",package = "AnalyzeFMRI"))
a<-a[,,,1]
contour3d(a,1:64,1:64,1.5*(1:21),
          lev=c(3000,8000,10000),alpha=c(0.2,0.5,1),
          color=c("white","red","green"))
